2000 PRINT"[147]";:POKE53280,.:POKE53281,.:
2005 POKE646,PEEK(53281):
2010 PRINT" [209][209][209][209][209][209][209] [209][209]    [209] [209][209][209][209][209][209]  [209][209][209][209][209][209][209]  [209][209][209] "
2020 PRINT" [209][209]      [209][209][209]   [209] [209][209]    [209] [209][209]       [209][209][209] "
2030 PRINT" [209][209][209][209][209]   [209][209] [209]  [209] [209][209]    [209] [209][209][209][209]     [209][209][209] "
2040 PRINT" [209][209]      [209][209]  [209] [209] [209][209]    [209] [209][209]           "
2050 PRINT" [209][209][209][209][209][209][209] [209][209]   [209][209] [209][209][209][209][209][209]  [209][209][209][209][209][209][209]  [209][209][209] "
2150 S=54272:POKES+24,15:POKES,168:POKES+1,68:POKES+5,15:POKES+6,139
2151 POKES+7,120:POKES+8,100:POKES+12,15:POKES+13,215:FORX=0TO315STEP6
2245 POKES+4,33:POKES+4,32:POKES+11,21:POKES+11,20:POKES+1,12*(RND(X/20)+1)
2250 IF(X-20)/8<>INT((X-20)/8)THENPOKE646,4
2260 FORY=0TO4:POKE55296+40+(X-20)/8+40*Y,Y+(RND(Y)+2):NEXT:NEXT
2340 FORX=0TO116STEP6:
2345 POKES+4,33:POKES+11,24:POKES+4,16:POKES+11,16
2350 IF(X1-20)/8<>INT((X1-20)/8)THENPOKE646,4:POKE+11,81:POKES+4,81
2360 FORY=0TO4:POKE55296+41+(X1-20)/8+41*Y,Y+(RND(Y)+2):NEXT:NEXT:POKE56325,.
2390 PRINT"LUKIAN":POKE56325,55:FORT=1TO300:NEXT:SYS2048